<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --><%
'===========================================================================================
'  Subroutine: inviaMailAS3(destinatario, mittente, soggetto, testo, file)
'  Descrizione: Function che consente di inviare una mail singola
'  Input: str destinatario l''indirizzo e-mail del destinatario
'		  str mittente l''indirizzo e-mail del mittente
'		  str soggetto oggetto della mail
'		  str testo corpo della mail
'         file eventuale file allegato alla mail
'  Output: null
'  Errori: null
'  Autore: 
'  Data: 
'  Autore ultima modifica: 
'  Data ultima modifica:
'===========================================================================================


sub inviaMailAS3(destinatario, mittente, soggetto, testo, file)
dim OBJmessaggio, ARRnomifiles

if (Session("mailserver_type")="aruba") then
   
'******************ARUBA**********************************************


   
'istanzio le costanti per invio

dim iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf

' verifico se mittente  un indirizzo mail valido

' Do per scontato che la variabile destinatario contenga un
' indirizzo mail valido
' verifico se  un elenco di indirizzi separati da ,
if instr(destinatario,";")<>0 then
destinatario=Replace(destinatario, ";", ",")
		.To =  trim(destinatario)

else
	.To = destinatario
end if


if instr(mittente,"@")<>0 then
    .From = mittente
else
    ' metto un indirizzo predefinito e la variabile mittente finisce come
    ' nome del mittente
    .From = mittente&" <noreply@noreply.it>"
end if
.Sender = mittente
.Subject = soggetto
.HTMLBody = "" & testo & ""
'.TextBody =
'.AddAttachment "file://" & Server.Mappath(""& foto &"")
.Send
End With 

'OBJmessaggio.AddNativeHeader "Date", data_mail

'OBJmessaggio.Subject = soggetto
'OBJmessaggio.HTMLBody = testo

' Verifico se ci sono allegati...
'if file <> "" then
	
	'... e faccio in modo che se sono pi di uno funzioni tutto correttamente
	' funziona sia che si passi la stringa "file1" che quella "file1;file2;file3"
	' NON deve esserci il punto e virgola finale, quindi se c' lo tolgo
	
'	if right(file,1) = ";" then file=left(file,len(file)-1)
	
'	ARRnomifiles = split(file,";")
'	for i=0 to ubound(ARRnomifiles)
'		OBJmessaggio.AddAttachment(ARRnomifiles(i))
'	next
'end if

'OBJMessaggio.ISOEncodeheaders=false
'OBJmessaggio.Send(PRS_SMTPESTERNO_AS3)

'******************ARUBA**********************************************


  
   else if (Session("mailserver_type")="sianet" or Session("mailserver_type")="") then
 



'******************START SIANET**********************************************

'===========================================================================================
'  Subroutine: inviaMailAS3(destinatario, mittente, soggetto, testo, file)
'  Descrizione: Function che consente di inviare una mail singola
'  Input: str destinatario l''indirizzo e-mail del destinatario
'		  str mittente l''indirizzo e-mail del mittente
'		  str soggetto oggetto della mail
'		  str testo corpo della mail
'         file eventuale file allegato alla mail
'  Output: null
'  Errori: null
'  Autore: 
'  Data: 
'  Autore ultima modifica: 
'  Data ultima modifica:
'===========================================================================================


set OBJmessaggio = Server.CreateObject("JMail.Message")


OBJmessaggio.Logging = true

' verifico se mittente  un indirizzo mail valido
if instr(mittente,"@")<>0 then
    OBJmessaggio.From = mittente
else
    ' metto un indirizzo predefinito e la variabile mittente finisce come
    ' nome del mittente
    OBJmessaggio.From = "noreply@eproject.it"
    OBJmessaggio.FromName = mittente
end if

' Do per scontato che la variabile destinatario contenga un
' indirizzo mail valido
' verifico se  un elenco di indirizzi separati da ,
if instr(destinatario,";")<>0 then
	destinatario = split(destinatario,";")
	dim q
	for q=0 to Ubound(destinatario)
		OBJmessaggio.AddRecipient trim(destinatario(q))
	next
else
	OBJmessaggio.AddRecipient destinatario
end if


' mi lavoro la data perchŽ tutti i client la riescano a leggere...
' il risultato deve essere nel formato Fri, 04 Apr 2003 16:23:42 +0200

dim settimana(7), data_mail, mesi(12)

settimana(1)="Sun"
settimana(2)="Mon"
settimana(3)="Tue"
settimana(4)="Wed"
settimana(5)="Thu"
settimana(6)="Fri"
settimana(7)="Sat"

mesi(1)= "Jan"
mesi(2)= "Feb"
mesi(3)= "Mar"
mesi(4)= "Apr"
mesi(5)= "May"
mesi(6)= "Jun"
mesi(7)= "Jul"
mesi(8)= "Aug"
mesi(9)= "Sep"
mesi(10)= "Oct"
mesi(11)= "Nov"
mesi(12)= "Dec"

data_mail = settimana(weekday(date()))&", "
data_mail = data_mail&right("00"&day(date()),2)&" "&mesi(month(date()))&" "&year(date())&" "
data_mail = data_mail&hour(now)&":"&minute(now)&":"&second(now)&" "
data_mail = data_mail&"+0100"


OBJmessaggio.AddNativeHeader "Date", data_mail

OBJmessaggio.Subject = soggetto
OBJmessaggio.HTMLBody = testo

' Verifico se ci sono allegati...
if file <> "" then
	
	'... e faccio in modo che se sono pi di uno funzioni tutto correttamente
	' funziona sia che si passi la stringa "file1" che quella "file1;file2;file3"
	' NON deve esserci il punto e virgola finale, quindi se c' lo tolgo
	
	if right(file,1) = ";" then file=left(file,len(file)-1)
	
	ARRnomifiles = split(file,";")
	for i=0 to ubound(ARRnomifiles)
		OBJmessaggio.AddAttachment(ARRnomifiles(i))
	next
end if

OBJMessaggio.ISOEncodeheaders=false
OBJmessaggio.Send("mail3.sianet.biz")








'******************END SIANET**********************************************

 end if
 end if
end sub


%>